home *** CD-ROM | disk | FTP | other *** search
/ C++ für Kids / C++ for kids.iso / Buch / Punkte1.cpp < prev    next >
C/C++ Source or Header  |  1998-12-26  |  1KB  |  41 lines
  1. //---------------------------------------------------------------------------
  2. #include <vcl\vcl.h>
  3. #pragma hdrstop
  4.  
  5. #include "Punkte1.h"
  6. //---------------------------------------------------------------------------
  7. #pragma resource "*.dfm"
  8.  
  9. const int FMax = 16;
  10. TColor Farbe[FMax] =
  11.   {clBlack, clMaroon, clGreen, clNavy, clTeal, clPurple,
  12.    clOlive, clGray, clSilver, clRed, clLime, clBlue,
  13.    clAqua, clFuchsia, clYellow, clWhite};
  14.  
  15. TForm1 *Form1;
  16. //---------------------------------------------------------------------------
  17. __fastcall TForm1::TForm1(TComponent* Owner)
  18.     : TForm(Owner)
  19. {
  20. }
  21. //---------------------------------------------------------------------------
  22. void __fastcall TForm1::Button1Click(TObject *Sender)
  23. {
  24.   int x,y, Dicke;
  25.   for (int i=1; i<500; i++)
  26.   {
  27.     x = random(ClientWidth);
  28.     y = random(ClientHeight);
  29.     Dicke = random(20);
  30.     // mit Farbe gefⁿllte Kreise zeichnen
  31.     Canvas->Brush->Color = Farbe[random(FMax)];
  32.     Canvas->Ellipse (x,y,x+Dicke,y+Dicke);
  33.   }
  34. }
  35. //---------------------------------------------------------------------------
  36. void __fastcall TForm1::FormCreate(TObject *Sender)
  37. {
  38.   randomize ();
  39.   Color = Farbe [random(FMax/2)];
  40. }
  41. //---------------------------------------------------------------------------